home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2003 September / PC Answers September 2003.iso / Software / freeware / pixeltoolbox / Setup.exe / Main / PixelToolbox.exe / PixelToolbox.dxr / Scripts_87_custom palette checkbox script.ls < prev    next >
Encoding:
Text File  |  2002-06-08  |  785 b   |  39 lines

  1. property pOnMember, pOffMember, pState
  2.  
  3. on beginSprite me
  4.   setMember(me)
  5. end
  6.  
  7. on mouseEnter me
  8.   put "Check to edit colors." into field "status"
  9. end
  10.  
  11. on mouseLeave me
  12.   put EMPTY into field "status"
  13. end
  14.  
  15. on setMember me
  16.   if pState = 1 then
  17.     sprite(me.spriteNum).member = pOnMember
  18.   else
  19.     sprite(me.spriteNum).member = pOffMember
  20.   end if
  21. end
  22.  
  23. on mouseUp me
  24.   pState = not pState
  25.   setMember(me)
  26. end
  27.  
  28. on isChecked me
  29.   return pState
  30. end
  31.  
  32. on getPropertyDescriptionList me
  33.   list = [:]
  34.   addProp(list, #pOnMember, [#comment: "On Member", #format: #member, #default: "check on"])
  35.   addProp(list, #pOffMember, [#comment: "Off Member", #format: #member, #default: "check off"])
  36.   addProp(list, #pState, [#comment: "Initial State", #format: #boolean, #default: 0])
  37.   return list
  38. end
  39.